home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1989 March / 64er_Magazin_89-03_1989_Markt__Technik_de_Side_A.d64 / grafik 24 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  450b  |  18 lines
  1. 10 open 1,4,4
  2. 20 read a
  3. 30 if a=-1 then 60
  4. 40 print#1,chr$(a);
  5. 50 goto 20
  6. 60 print#1,chr$(10) : rem lf + cr
  7. 70 close 1 : end
  8. 80 data 27, 42, 39, 24, 0, 3, 192, 6
  9. 90 data 6, 33, 198, 12, 19, 166, 9, 141
  10. 100 data 134, 27, 29, 198, 27, 108, 230, 27
  11. 110 data 140, 70, 30, 12, 134, 12, 13, 6
  12. 120 data 7, 255, 198, 15, 255, 230, 16, 0
  13. 130 data 70, 0, 0, 134, 0, 0, 6, 0
  14. 140 data 0, 6, 0, 0, 6, 4, 0, 6
  15. 150 data 12, 0, 134, 31, 255, 198, 15, 255
  16. 160 data 230, 0, 0, 198, 0, 0, 134, 0
  17. 170 data 1, 6, 0, 0, 6, -1
  18.